object FORMRegistrar: TFORMRegistrar
  Left = 0
  Top = 0
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Este software precisa ser registrado'
  ClientHeight = 331
  ClientWidth = 474
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PANLBottom: TPanel
    Left = 0
    Top = 292
    Width = 474
    Height = 39
    Align = alBottom
    Color = clInfoBk
    ParentBackground = False
    TabOrder = 0
    object BBTNCancelar: TBitBtn
      AlignWithMargins = True
      Left = 392
      Top = 7
      Width = 75
      Height = 25
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Align = alRight
      Caption = 'Cancelar'
      Kind = bkCancel
      NumGlyphs = 2
      TabOrder = 0
    end
  end
  object PGCTModos: TPageControl
    AlignWithMargins = True
    Left = 6
    Top = 59
    Width = 462
    Height = 227
    Margins.Left = 6
    Margins.Top = 6
    Margins.Right = 6
    Margins.Bottom = 6
    ActivePage = TBSHRegistrarInternet
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object TBSHReativar: TTabSheet
      Caption = 'Reativar (Internet)'
      object STTEReativar: TStaticText
        AlignWithMargins = True
        Left = 6
        Top = 6
        Width = 442
        Height = 46
        Margins.Left = 6
        Margins.Top = 6
        Margins.Right = 6
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        BevelEdges = [beTop, beBottom]
        BevelKind = bkFlat
        Caption = 
          'Use este modo de registro para reativar uma c'#243'pia que j'#225' foi ati' +
          'va uma vez neste sistema ou para ativar uma c'#243'pia numa m'#225'quina c' +
          'ujos dados f'#237'sicos j'#225' foram registrados previamente. Uma conex'#227'o' +
          ' ativa com a Internet '#233' necess'#225'ria'
        Color = clInfoBk
        ParentColor = False
        TabOrder = 0
        Transparent = False
      end
      object KLEDCpfCnpj1: TKRKLabeledEdit
        Left = 117
        Top = 97
        Width = 107
        Height = 21
        EditFormat.FinalMask = '###.###.###-##'
        EditFormat.Format = foCustom
        EditFormat.FormatScript.Strings = (
          '\D'#170
          '(\d{3})(\d)'#186'$1.$2'
          '(\d{3})(\d)'#186'$1.$2'
          '(\d{3})(\d{1,2})$'#186'$1-$2')
        EditLabel.Width = 80
        EditLabel.Height = 13
        EditLabel.Caption = '     CPF       CNPJ'
        Enabled = True
        LabelSpacing = 1
        MaxLength = 14
        TabOrder = 3
      end
      object RABUCPF1: TRadioButton
        Left = 117
        Top = 84
        Width = 12
        Height = 12
        Checked = True
        TabOrder = 1
        TabStop = True
        OnClick = DoConfigureCpfCnpj1
      end
      object RABUCNPJ1: TRadioButton
        Left = 158
        Top = 84
        Width = 12
        Height = 12
        TabOrder = 2
        OnClick = DoConfigureCpfCnpj1
      end
      object KLEDSenha1: TKRKLabeledEdit
        Left = 230
        Top = 97
        Width = 107
        Height = 21
        EditLabel.Width = 30
        EditLabel.Height = 13
        EditLabel.Caption = 'Senha'
        Enabled = True
        LabelSpacing = 1
        TabOrder = 4
      end
      object BBTNReativar: TBitBtn
        Left = 117
        Top = 124
        Width = 220
        Height = 30
        Caption = 'Reativar'
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
          33333333333F8888883F33330000324334222222443333388F3833333388F333
          000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
          F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
          223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
          3338888300003AAAAAAA33333333333888888833333333330000333333333333
          333333333333333333FFFFFF000033333333333344444433FFFF333333888888
          00003A444333333A22222438888F333338F3333800003A2243333333A2222438
          F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
          22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
          33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
        TabOrder = 5
        OnClick = BBTNReativarClick
      end
    end
    object TBSHRegistrarInternet: TTabSheet
      Caption = 'Registrar (Internet)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      object Label1: TLabel
        Left = 6
        Top = 139
        Width = 94
        Height = 13
        Caption = 'Chave criptogr'#225'fica'
      end
      object STTERegistrarInternet: TStaticText
        AlignWithMargins = True
        Left = 6
        Top = 6
        Width = 442
        Height = 46
        Margins.Left = 6
        Margins.Top = 6
        Margins.Right = 6
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        BevelEdges = [beTop, beBottom]
        BevelKind = bkFlat
        Caption = 
          'Informe CPF ou CNPJ, a senha e o nome do hardware e clique o bot' +
          #227'o "solicitar". Acesse o seu e-mail, copie o serial no campo esp' +
          'ec'#237'fico e clique o bot'#227'o "registrar". O e-mail possui outras inf' +
          'orma'#231#245'es relevantes. Leia-as e guarde este e-mail com cuidado'
        Color = clInfoBk
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 0
        Transparent = False
      end
      object KLEDCpfCnpj2: TKRKLabeledEdit
        Left = 6
        Top = 71
        Width = 107
        Height = 21
        EditFormat.FinalMask = '###.###.###-##'
        EditFormat.Format = foCustom
        EditFormat.FormatScript.Strings = (
          '\D'#170
          '(\d{3})(\d)'#186'$1.$2'
          '(\d{3})(\d)'#186'$1.$2'
          '(\d{3})(\d{1,2})$'#186'$1-$2')
        EditLabel.Width = 80
        EditLabel.Height = 13
        EditLabel.Caption = '     CPF       CNPJ'
        Enabled = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        LabelSpacing = 1
        MaxLength = 14
        ParentFont = False
        TabOrder = 3
      end
      object RABUCPF2: TRadioButton
        Left = 6
        Top = 58
        Width = 12
        Height = 12
        Checked = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        TabStop = True
        OnClick = DoConfigureCpfCnpj2
      end
      object RABUCNPJ2: TRadioButton
        Left = 47
        Top = 58
        Width = 12
        Height = 12
        TabOrder = 2
        OnClick = DoConfigureCpfCnpj2
      end
      object KLEDSenha2: TKRKLabeledEdit
        Left = 119
        Top = 71
        Width = 97
        Height = 21
        EditLabel.Width = 30
        EditLabel.Height = 13
        EditLabel.Caption = 'Senha'
        Enabled = True
        LabelSpacing = 1
        TabOrder = 4
      end
      object BBTNRegistrar: TBitBtn
        AlignWithMargins = True
        Left = 6
        Top = 163
        Width = 442
        Height = 30
        Margins.Left = 6
        Margins.Right = 6
        Margins.Bottom = 6
        Align = alBottom
        Cancel = True
        Caption = 'Informe um serial v'#225'lido'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333FFFFF333333000033333388888833333333333F888888FFF333
          000033338811111188333333338833FFF388FF33000033381119999111833333
          38F338888F338FF30000339119933331111833338F388333383338F300003391
          13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
          33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
          33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
          000039183811193333918338F8F833F83333838F000039118111933339118338
          F3833F83333833830000339111193333391833338F33F8333FF838F300003391
          11833338111833338F338FFFF883F83300003339111888811183333338FF3888
          83FF83330000333399111111993333333388FFFFFF8833330000333333999999
          3333333333338888883333330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
        ParentFont = False
        TabOrder = 11
        OnClick = BBTNRegistrarClick
      end
      object BBTNSolicitar: TBitBtn
        Left = 392
        Top = 58
        Width = 56
        Height = 34
        Caption = 'Solicitar'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        NumGlyphs = 2
        ParentFont = False
        TabOrder = 6
        OnClick = BBTNSolicitarClick
      end
      object MEMOSerial: TMemo
        Left = 6
        Top = 98
        Width = 442
        Height = 32
        Alignment = taCenter
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnChange = CheckSerial
      end
      object EDITCKA1: TEdit
        Left = 106
        Top = 136
        Width = 52
        Height = 21
        Alignment = taCenter
        MaxLength = 1
        TabOrder = 8
        OnChange = CheckSerial
        OnKeyPress = EDITCKA1KeyPress
      end
      object EDITCKA2: TEdit
        Left = 164
        Top = 136
        Width = 52
        Height = 21
        Alignment = taCenter
        MaxLength = 1
        TabOrder = 9
        OnChange = CheckSerial
        OnKeyPress = EDITCKA1KeyPress
      end
      object EDITCKA3: TEdit
        Left = 222
        Top = 136
        Width = 52
        Height = 21
        Alignment = taCenter
        MaxLength = 1
        TabOrder = 10
        OnChange = CheckSerial
        OnKeyPress = EDITCKA1KeyPress
      end
      object LAEDHardwareName: TLabeledEdit
        Left = 222
        Top = 71
        Width = 164
        Height = 21
        EditLabel.Width = 92
        EditLabel.Height = 13
        EditLabel.Caption = 'Nome do Hardware'
        Enabled = False
        LabelSpacing = 1
        MaxLength = 32
        TabOrder = 5
      end
    end
    object TBSHRegistrarManualmente: TTabSheet
      Caption = 'Registrar (Telefone)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ImageIndex = 3
      ParentFont = False
      object STTERegistrarManualmente: TStaticText
        AlignWithMargins = True
        Left = 6
        Top = 6
        Width = 442
        Height = 46
        Margins.Left = 6
        Margins.Top = 6
        Margins.Right = 6
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        BevelEdges = [beTop, beBottom]
        BevelKind = bkFlat
        Caption = 
          'Ligar para o n'#250'mero (xxxxxxxxxxxx) informar os dados cadastrais ' +
          'e o serial abaixo'
        Color = clInfoBk
        ParentColor = False
        TabOrder = 0
        Transparent = False
      end
    end
    object TBSHSubstituir: TTabSheet
      Caption = 'Substituir (Internet)'
      ImageIndex = 3
      object Label2: TLabel
        Left = 0
        Top = 55
        Width = 454
        Height = 144
        Align = alClient
        Caption = 
          '1. O cliente solicita a substitui'#231#227'o ao atendimento, via e-mail,' +
          ' informando quais hadwares ser'#227'o invalidados'#13#10'2. O atendimento m' +
          'arca os registros como substitu'#237'veis'#13#10'3. O cliente realiza a sub' +
          'stitui'#231#227'o informando os hardwares antigos e os novos'#13#10'4. O webse' +
          'rvice troca o flag de substitu'#237'vel para false, em todos os regis' +
          'tros que foram substituidos'#13#10'5. Ao substituir, zerar o contador ' +
          'de reativa'#231#245'es e informar em DT_ULTIMAREATIVACAO, a data da subs' +
          'titui'#231#227'o'#13#10'6. quando IN_REATIVA'#199#213'ES = 0 e DT_ULTIMAREATIVACAO <> ' +
          'NULL ent'#227'o significa que houve uma substitui'#231#227'o naquela data!'
        WordWrap = True
        ExplicitWidth = 443
        ExplicitHeight = 130
      end
      object STTESubstituir: TStaticText
        AlignWithMargins = True
        Left = 6
        Top = 6
        Width = 442
        Height = 46
        Margins.Left = 6
        Margins.Top = 6
        Margins.Right = 6
        Align = alTop
        Alignment = taCenter
        AutoSize = False
        BevelEdges = [beTop, beBottom]
        BevelKind = bkFlat
        Caption = '??????'
        Color = clInfoBk
        ParentColor = False
        TabOrder = 0
        Transparent = False
        ExplicitLeft = 12
        ExplicitTop = 14
      end
    end
  end
  object PANLTop: TPanel
    Left = 0
    Top = 0
    Width = 474
    Height = 53
    Align = alTop
    Color = clInfoBk
    ParentBackground = False
    TabOrder = 2
    object STTETop: TStaticText
      AlignWithMargins = True
      Left = 7
      Top = 7
      Width = 460
      Height = 39
      Margins.Left = 6
      Margins.Top = 6
      Margins.Right = 6
      Margins.Bottom = 6
      Align = alClient
      Alignment = taCenter
      Caption = 
        'N'#227'o foi encontrada uma licen'#231'a v'#225'lida para este software neste s' +
        'istema. '#201' necess'#225'rio que o software seja registrado ou reativado' +
        '. Use uma das op'#231#245'es dispon'#237'veis abaixo para realizar a tarefa d' +
        'esejada ('#201' NECESS'#193'RIO TER PERMISS'#213'ES ADMINISTRATIVAS)'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
end
